home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / bytebnch.arc / BENCH1.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-07-10  |  256 b   |  10 lines
  1. 100 A$="12345678123456781234567812345678"
  2. 120 B$=A$+A$+A$+A$
  3. 140 NR=512
  4. 160 OPEN "B:TEST" FOR OUTPUT AS #1
  5. 180 FOR I=1 TO NR
  6. 200 PRINT #1, B$;
  7. 220 NEXT I
  8. 240 CLOSE
  9. 260 PRINT "DONE": BEEP
  10.